ADA Programming Guide/ADA Programming Guide.iso/adatutor/adawkbk/sol3-3.ada

Text File | 1996-01-30 | 403b | 24 lines

-- Problem 3.3
-- by Rick Conn
with Text_IO;
procedure Main is

  Inline : STRING (1..80);
  Inlast : NATURAL;

begin

  for I in 1 .. 10 loop

    Text_IO.Put ("Enter String: ");
    Text_IO.Get_Line (Inline, Inlast);

    if Inlast >= 4 and then Inline(1..4) = "EXIT" then
      Text_IO.Put_Line ("Leaving Loop on EXIT Command");
      exit;
    end if;

  end loop;

end Main;